RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Set date to a user-specified date 16-Sep-1984 01:46: AX-11 Bliss-32 V4.0-74 Page 1 SETT 
: Vergeen13Be P4638 AMAT Ok isgcBe Nt Or 74? 4) vo4~ 
| 
ATITLE ‘Set date to a user-specified date’ 
MODULE SETDAT ( 


po lololo) 
wr 


IDENT = ‘V04-000' 
RBLISS32C 
ADDRESSING_MODE (EXTERNAL=LONG, RELATIVE ,NONEXTERNAL=LONG_RELAT IVE) 
)z 


vv 
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iw COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY 9 ACCORDANCE WITH THE TERMS OF SUCH LICENSE ne Se THE 


. H 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
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ix THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
He CORPORA Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+t 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: Sets the date to a user-specified date. 


ENVIRONMENT: Transportable 
AUTHOR: R.W. Friday CREATION DATE: April, 1979 
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$642000 Revision History , 1 =$0071 382 93:38:38 MINOR eSReISETDAT OLY, 
: 44 rh 1 ZSBTTL ‘Revision History’ 
; 645 446 1! 
3 6 45 1 ! MODIFIED BY: 
: 4 rk 1! 
: $8 47 1! 002 REMO0002 Ray Marshall 07-Mar-1983 
s 6 rk 7 3 Global edit of all modules. Updated module names, idents, 
; $f 049 copyright dates. Changed require files to BLISS library. 
: $2 051 1 i-- 
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RSBTTL "Module Level Declarations’ 
i TABLE OF CONTENTS: 


i 
INCLUDE FILES: 


LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 

REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
ZIF _DSRPLUS THEN 

bepeeny REQ:DPLLIB'; ! DSRPLUS BLISS Library 
LZBRARY "REQ:DSRLIB'; ! DSR BLISS Library 

' 

MACROS: 

MA 


CRO 
DOPARM (P,MAX) = 
'Process this parameter only if it was specified. 
ag eee R (P) NEQ NM_NULL 
BEGIN 
IF .NMLST_DESCR (P) EQL NM_PLUS 
-NMLST_DESCR (P) EQL NM_MINUS 
TEMP_DATIM C3-P] = .TEMP_DATIM [3-P] + .NMLST_VALUE (P) 
TEMP_DATIM C3-P] = .NMLST_VALUE (P); 


'Check for pevatixe gr GTR MAX value 
IF FERN PAT TS C5-P]) LEQ 0 


mee C(3-P] GTR MAX 
'ILlegal number value. 


ERMA (RNFINM, FALSE); 
RETURN; 


END q; : 
EQUATED SYMBOLS: 


OWN STORAGE : 


EXTERNAL REFERENCES: 


eee eee ee ee ee ee 


EXTERNAL 
DATTIM : VECTOR (6), 'Date and time. 


Betatatatatatatadatababatatad 
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Module Level Declarations 14-Sep-1984 :08: RUNOFF .SRCJSETDAT.BLI; (3) 

ip ! NMLST : NUMBER_LIST; 'GLNM returns command parameters here 

oy F 2 

2 } EXTERNAL LITERAL '‘Error messages 

4 RNF INM; 

44 1 

rf ! ! 

23 1 EXTERNAL ROUTINE 

rh 1 ERMA, 

49 #1 GLNM 

20 RNODAT; 

_ - © 

33 | 
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RSBTTL “SETDAT ==" 
GLOBAL ROUTINE setdat ‘handler_code) : NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


SETDAT calls GLNM to pick up the day, month, and year, in that order. 
If the user says nothing, then the date is set to the system date. 


FORMAL PARAMETERS: 
HANDLER_CODE is not examined. It is passed to this routine 
for reasons of conformity only. It will always have the 
value H_SET_DATE. 

IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


OOOCCOOCOCOCOCOOCOOOCOCO MM 


WN SO OONAUE WN —OODNAULS WN OOONOUSWWN—O0O-) 


! Assume the most complicated case: that the user is adjusting settings by 


0 
0 
0 
9 
: SIDE EFFECTS: None 
0 on 
027 
028 BEGIN 
028 
028 LOCAL 
ose temp_datim : VECTOR (6); 
Ose glnm (3); ‘Request the day, month, and year. 
058 IF .nmmlst_count EQL 0 THEN 
028 BEGIN 
rs rnodat (temp_datim); 'Get entire system date/time. 
039 ‘Save just the system time part. 
0 38 dattim (0) = -tomp_datio 0); ‘Year 
0294 DATTIM C1] = .TEMP_DATIM (1); 'Month 
0 i DATTIM C2) = .TEMP_DATIM (2); 'Day 
8 99 RETURN; 
4 END; 
9 
00 


DONO ULWN—OO@On 


PORSPORONOPOPONONONONONONUWIWI WINN WINN AIR PO s 


ae Ne in ice oe a te oo Oar a ne ne Dae tne eg 


30 ! adding/subtracting values. Make a copy of the current time. 
temp_datim (0) = .dattim (0); ‘Year 
temp_datim [1] = .dattim (1); ‘Month 
5 temp_datim (2) = .dattim (2); 'Day 
; 'Validate phe day, if given : 
1 4 doparm (1,31); ‘First parameter can have a maximum value of 31 
; 10 !Validate the month, if given 
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SETDAT. == ae aets a  Bet  CHO eee  Pa Ca E 9° 4) 
11 IF shalst_sguas GEQ 2. THEN 
\¢ doparm (2,12); 'Second paramater can have a maximum value of 12 
14 ‘Validate the year, i iven 
15 if cnAlst. count gra j OT HEN 
1 doparm (3,9999); ‘Maximum of 9999 
18 'Make computed time cucreng 
1 dattim (0) = .temp_datim 3 ‘Year 
0 dattim (1) = .temp_datim (1); 'Month 
0321 dattim [2] = .temp_datim (2); 'Day 
8 ¢ END; ‘End of SETDAT 
TITLE SETDAT Set date to a user-specified date 
-IDENT \V04-000\ 
EXTRN DATTIM, NMLST, RNFINM 


SEXTRN ERMA, GLNM, RNODAT 
.PSECT $CODE$,NOWRT,2 


000c 00000 .ENTRY SETDAT, Save R2,R3 : 0255 
53 00000000G EF 9E€ 00002 MOVAB DATTIM, R F 
3f 000000006 FF $880 HAST ht | 
03 DD 00013 PUSHL a + 0285 
000000006 EF 01 FB 00015 CALLS #1, GLNM : 
62 D5 0001C TSTL NMLST + 0287 
g¢ 12 OO01E NEQ ; 
E 0D 00020 PUSHL SP 3; 0289 
00000000G_ EF 009: fe 000 § aa *} RNODAT : 93 
6E 8 Hy 002C 1$ MOVQ DATTIM, TEMP_DATIM Z 03 
08 AE 08 A3 dO 0002F MOVL DATTIM+8 TEMP_DATIM+8 ; 0305 
50 00A4 (2 00 0034 MOVL NMLST+164, RO : 0308 
le 13 00039 BEQL ©5$ ; 
02 50 Di 00038 CMPL = RO, #2 ; 
05 13 000 BEQL : 
03 0 D1 0004 CMPL = RO, #3 : 
07 if 004 BNE F 
08 AE 04 08 f 9k 23: apple NMLST+4, TEMP_DATIM+8 Z 
08 AE 04 A 0 ace 3$: MOVL NMLST+4, TEMP_DATIM+8 3 
5B 51 4$: BLEQ ; 
1F 08 AE D1 000 ; CMPL §_TEMP_DATIM+8, #31 ; 
5 14 000 BGTR 3 
02 : D1 00059 5$ CMPL  NMLST, #2 : 0311 
19 C BLSS : 
50 00A8 ( 069 ‘ MOVL NMLST+168, RO 3 0312 
02 ot CMPL RO, #2 3 
3 8 BEQL ; 
03 D1 A CMPL =soRO, #3 : 
0 if D BNEG ; 
04 AE 08 A2 CO OO06F 6$ ADDL2 NMLST+8, TEMP_DATIM+4 ; 


SETDAT 
v04-000 


3; Routine Size: 


Name 
SCODES 


File 


$255$DUA28: 
STi A 


4 
td - ifi -Sep- 246: - ~ .0- 
sn Sy 8 seerssnerttied fess TESESISEE CU:GHSEWMaDD SMRNSEEA: ES 
05 11 74 BRB 8$ 
04 AE 08 A 0 76 7$: MOVL NMLST+8, TEMP_DATIM+4 
3 7B 8$: BLEQ 
0c 04 M3 } 7D eva TEMP_DATIM+4, #12 
03 Q ) 3 } 9% ty NMLST, #3 
50 OOAC 00 0 MOVL we Stet72. RO 
F 135 0008D BEQL 14 
02 0 Di 3 F CMPL *e #2 
5 13 00092 BEQL §~=ss«108 
03 0 Di 00 3 CMPL RO, #3 
3 12 00097 BNEQ 1 
6E 0c yi 0090 10$: apate NMLST+12, TEMP_DATIM 
6E 0c Ag 00 OF 11$: MOVL NMLST+12, TEMP_DATIM 
09 1 OA3 12$: BLEQ 1 
0000270F &8F of | apne ys" JEP .DATIA. #9999 
7E D4 QOOAE 13%: CLRL -(SP) 
00000000G 8F DD 00080 PUSHL &#RNFINM 
00000000G_ EF 02 Fe Baoee cats #2, ERMA 
63 6E QOOBE 14$: MOVQ TEMP_DATIM, DATTIM 
08 A3 08 AE 00 000C1 MOVL TEMP_DATIM+8, DATTIM+8 
04 000C6 RET 
199 bytes, Routine Base: $CODE$ + 0000 
324 
§35e ND ‘End of module 
0326 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 


1 


99 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


SYSLIBIXPORT.L32;1 
RUNOFF .SRCJDSRLIB.L32;1 


Symbols Pages 
Total Loaded Percent Mapped 
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Lines/CPU Min: 
Lexemes/CPU-Min: 2 


Set 
000 SE TD 


te to a user-specified date 


“. 16-Sep-1986 15:06:08 RUNOFF oSReSSETOAT-OLIs1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SETDAT/OBJ=OBJ$:SETDAT MSRC$:SETDAT/UPDATE=(ENH$:SETDAT) 
e: 199 code + 0 data bytes 
Time: 06°99 7 f 
psed Time: 00:17.4 
308 
54 
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